home *** CD-ROM | disk | FTP | other *** search
- on mouseDown
- global clickH, clickNum
- set clickH to the locH of sprite the clickOn
- if (clickH > 20) and (clickH < 26) then
- set clickNum to 1
- else
- if (clickH > 60) and (clickH < 70) then
- set clickNum to 2
- else
- if (clickH > 101) and (clickH < 112) then
- set clickNum to 3
- else
- if (clickH > 145) and (clickH < 152) then
- set clickNum to 4
- else
- if (clickH > 185) and (clickH < 196) then
- set clickNum to 5
- else
- if (clickH > 226) and (clickH < 238) then
- set clickNum to 6
- else
- if (clickH > 270) and (clickH < 280) then
- set clickNum to 7
- else
- if (clickH > 312) and (clickH < 324) then
- set clickNum to 8
- else
- if (clickH > 354) and (clickH < 364) then
- set clickNum to 9
- else
- if (clickH > 396) and (clickH < 406) then
- set clickNum to 10
- else
- if (clickH > 438) and (clickH < 448) then
- set clickNum to 11
- else
- if (clickH > 475) and (clickH < 495) then
- set clickNum to 12
- else
- if (clickH > 522) and (clickH < 532) then
- set clickNum to 13
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- repeat while the stillDown
- set the locV of sprite the clickOn to the mouseV
- set the locH of sprite the clickOn to the mouseH
- updateStage()
- end repeat
- end
-
- on mouseUp
- global spritew1, spritew2, spritew3, spritew4, spritew5, spritew6, clickH, clickNum, spritew7, spritew8, spritew9, spritew10, spritew11, spritew12, spritew13
- if (the clickOn > 32) and (the clickOn < 46) then
- if the locH of sprite the clickOn > 540 then
- set the locH of sprite the clickOn to 569
- set the locV of sprite the clickOn to 432
- updateStage()
- wait(5)
- set x to 0
- repeat while (clickNum + x) < 13
- set x to x + 1
- repeat with d = 1 to 6
- set the locH of sprite value("spritew" & clickNum + x) to the locH of sprite value("spritew" & clickNum + x) - 7
- set the locV of sprite the clickOn to 432
- updateStage()
- end repeat
- end repeat
- repeat with d = 1 to 6
- set the locH of sprite the clickOn to the locH of sprite the clickOn - 7
- set the locV of sprite the clickOn to 432
- updateStage()
- end repeat
- set temphold to spritew13
- set spritew13 to value("spritew" & clickNum)
- set switchnum to 13
- repeat while switchnum > clickNum
- set switchnum to switchnum - 1
- set temphold2 to value("spritew" & switchnum)
- if switchnum = 12 then
- set spritew12 to temphold
- else
- if switchnum = 11 then
- set spritew11 to temphold
- else
- if switchnum = 10 then
- set spritew10 to temphold
- else
- if switchnum = 9 then
- set spritew9 to temphold
- else
- if switchnum = 8 then
- set spritew8 to temphold
- else
- if switchnum = 7 then
- set spritew7 to temphold
- else
- if switchnum = 6 then
- set spritew6 to temphold
- else
- if switchnum = 5 then
- set spritew5 to temphold
- else
- if switchnum = 4 then
- set spritew4 to temphold
- else
- if switchnum = 3 then
- set spritew3 to temphold
- else
- if switchnum = 2 then
- set spritew2 to temphold
- else
- if switchnum = 1 then
- set spritew1 to temphold
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- set temphold to temphold2
- end repeat
- checkwin()
- else
- set the locH of sprite the clickOn to clickH
- set the locV of sprite the clickOn to 432
- updateStage()
- end if
- end if
- end
-
- on checkwin
- global tagOrder
- set word1 to EMPTY
- repeat with r = 1 to 13
- set word1 to word1 & the name of cast the castNum of sprite value("spritew" & r)
- end repeat
- set tagOrder to word1
- if word1 = "inclinedplane" then
- go(10)
- end if
- end
-